    Sub New(ByVal s As String)